0 CLR
100 DATA 197,162,240,252,173
110 DATA 27,212,41,6,170,254
120 DATA 0,208,188,0,208,74
130 DATA 170,189,248,7,73,1
140 DATA 157,248,7,200,240,5
150 DATA 165,162,24,144,222
160 DATA 96
170 FOR J=828 TO 862:READX
180 T=T+X:POKE J,X:NEXT J
190 IF T<>4770 THEN STOP
200 DATA 0,2,0,63,255,255,63
210 DATA 247,63,243,63,240,56
220 DATA 48,24,48,12,96,6,192
230 FOR J=0 TO 18 STEP 3
240 READ X,Y
250 POKE 896+J,X:POKE 897+J,Y:POKE 898+J,0
260 POKE 960+J,X:POKE 961+J,Y:POKE 962+J,0
270 NEXT J
280 FOR J=21 TO 27 STEP 3
290 READ X,Y
300 POKE 896+J,X:POKE 897+J,Y:POKE 898+J,0
310 POKE 961+J,X:POKE 960+J,Y:POKE 962+J,0
320 NEXT J
330 FOR J=30 TO 60 STEP 3
340 POKE 896+J,0:POKE 897+J,0:POKE 898+J,0
350 POKE 960+J,0:POKE 961+J,0:POKE 962+J,0
360 NEXT J
370 FOR J=0 TO 3
380 POKE 53248+J*2,25
390 POKE 53249+J*2,J*30+80
400 POKE 53287+J,1
410 POKE 2040+J,15
420 NEXT J
430 POKE 54287,55
440 POKE 54290,129
450 POKE 54296,128
460 POKE 53269,15
470 PRINTCHR$(147)
480 FOR J=1 TO 20:PRINT TAB(31);CHR$(165):NEXT J
490 SYS 828
500 FOR J=1 TO 5000:NEXT J
510 POKE 53269,0